inherited fm_Conf_Impressao: Tfm_Conf_Impressao
  Caption = 'Configura'#231#227'o de impress'#227'o de etiquetas'
  ClientHeight = 394
  ClientWidth = 764
  PopupMenu = pm_Principal
  OnCreate = FormCreate
  ExplicitWidth = 780
  ExplicitHeight = 432
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 108
    Width = 764
    Height = 9
    Cursor = crVSplit
    Align = alTop
    Beveled = True
    ResizeStyle = rsUpdate
    ExplicitWidth = 737
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 764
    Height = 108
    Align = alTop
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 1
      Top = 1
      Width = 762
      Height = 106
      Align = alClient
      Caption = 'Pedido'
      TabOrder = 0
      object dbGrid_Pedido_Info: TFocusDbGrid
        Left = 2
        Top = 15
        Width = 758
        Height = 89
        Align = alClient
        Color = clWindow
        Columns = <
          item
            Expanded = False
            FieldName = 'N'#250'meroOr'#231'amento'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Cliente'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NotaFiscal'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'orC'#243'digoCliente'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DataOr'#231'amento'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'OrdemCompra'
            Title.Caption = 'Ordem Compra'
            Visible = True
          end>
        DrawingStyle = gdsGradient
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect, dgTitleClick, dgTitleHotTrack]
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        ColorParStart = clCream
        ColorParEnd = clWhite
        ColorImparStart = clWhite
        ColorImparEnd = clCream
        SQL.Strings = (
          'select '#9'a.*,'
          ' '#9'b.cliente'
          'from'#9'orcamento a'
          'inner join cliente b on a.orc'#243'digocliente = b.c'#243'digocliente'
          'where 1=1'
          'and'#9'a.n'#250'meroor'#231'amento = :numeroorcamento')
        SubDetail = dbGrid_Pedido_Info_Item
        Params = <
          item
            DataType = ftInteger
            Name = 'numeroorcamento'
            ParamType = ptInput
          end>
        TipoClasseBase = TOrcamentoInterno
        TipoClasseDestino = Null
        AllowAppend = False
        FilterOFFOnColSearch = False
        Columns = <
          item
            Expanded = False
            FieldName = 'N'#250'meroOr'#231'amento'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Cliente'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NotaFiscal'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'orC'#243'digoCliente'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DataOr'#231'amento'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'OrdemCompra'
            Title.Caption = 'Ordem Compra'
            Visible = True
          end>
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 117
    Width = 764
    Height = 277
    Align = alClient
    TabOrder = 1
    object GroupBox2: TGroupBox
      Left = 1
      Top = 1
      Width = 762
      Height = 275
      Align = alClient
      Caption = 'Etiquetas'
      TabOrder = 0
      object dbGrid_Pedido_Info_Item: TFocusDbGrid
        Left = 2
        Top = 15
        Width = 758
        Height = 258
        Align = alClient
        Color = clWindow
        Columns = <
          item
            Expanded = False
            FieldName = 'ie_imprimir'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -1
            Font.Name = 'Arial Narrow'
            Font.Style = []
            Title.Caption = 'Imprimir?'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nr_sequencial'
            ReadOnly = True
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nr_cliente_seq'
            ReadOnly = True
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nr_conjunto'
            ReadOnly = True
            Title.Caption = 'Conjunto'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ds_volume'
            ReadOnly = True
            Title.Caption = 'Volume'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ds_caixa'
            ReadOnly = True
            Title.Caption = 'Caixa'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'c'#243'digo'
            ReadOnly = True
            Title.Caption = 'C'#243'digo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'produto'
            ReadOnly = True
            Title.Caption = 'Produto'
            Visible = True
          end>
        DrawingStyle = gdsGradient
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        ColorParStart = clWhite
        ColorParEnd = clWhite
        ColorImparStart = clWhite
        ColorImparEnd = 14803425
        SQL.Strings = (
          'select a.*'
          'from ('
          'SELECT a.nr_sequencia as nr_sequencial,'
          #9#9' a.nr_cliente_seq,'
          #9#9' a.nr_conjunto,'
          #9#9' a.ds_volume,'
          #9#9' a.ie_imprimir,'
          #9#9'e.prc'#243'digoproduto as C'#243'digo,'
          #9#9'e.prproduto as Produto,'
          #9#9'b.ds_caixa'
          'FROM'#9'(((tmp_etiqueta a'
          'INNER JOIN caixa b On b.nr_sequencia = a.nr_seq_caixa)'
          'INNER JOIN orcamento_item c On a.nr_seq_orcamento_item = c.id)'
          
            'INNER JOIN orcamento d On d.n'#250'meroor'#231'amento = c.don'#250'meroor'#231'ament' +
            'o) '
          'INNER JOIN produto e On e.prc'#243'digoproduto = c.c'#243'digoproduto'
          'WHERE'#9'Exists('#9'SELECT 1 '
          'FROM '#9'orcamento_item w'
          'WHERE'#9'w.doN'#250'meroOr'#231'amento = :N'#250'meroOr'#231'amento'
          'And'#9'w.id = a.nr_seq_orcamento_item'
          'order by a.nr_conjunto,a.ds_volume) )a where 1=1')
        Params = <
          item
            DataType = ftInteger
            Name = 'n'#250'meroor'#231'amento'
            ParamType = ptInput
          end>
        TipoClasseBase = TTmp_Etiqueta
        TipoClasseDestino = Null
        AllowAppend = False
        FilterOFFOnColSearch = False
        Columns = <
          item
            Expanded = False
            FieldName = 'ie_imprimir'
            Font.Charset = ANSI_CHARSET
            Font.Color = clWindowText
            Font.Height = -1
            Font.Name = 'Arial Narrow'
            Font.Style = []
            Title.Caption = 'Imprimir?'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nr_sequencial'
            ReadOnly = True
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nr_cliente_seq'
            ReadOnly = True
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'nr_conjunto'
            ReadOnly = True
            Title.Caption = 'Conjunto'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ds_volume'
            ReadOnly = True
            Title.Caption = 'Volume'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'ds_caixa'
            ReadOnly = True
            Title.Caption = 'Caixa'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'c'#243'digo'
            ReadOnly = True
            Title.Caption = 'C'#243'digo'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'produto'
            ReadOnly = True
            Title.Caption = 'Produto'
            Visible = True
          end>
      end
    end
  end
  object pm_Principal: TPopupMenu
    OnPopup = pm_PrincipalPopup
    Left = 320
    Top = 232
    object mi_Imprimir: TMenuItem
      Caption = 'Imprimir'
      OnClick = mi_ImprimirClick
    end
    object mi_Preview: TMenuItem
      Caption = 'Pr'#233' visualizar'
      OnClick = mi_PreviewClick
    end
  end
end
